home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-09_1988_-_de_Side_B.d64 / das gift (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  38KB  |  902 lines
  1. 0 poke53280,0:gosub53000
  2. 1 print"[147]":poke53280,0:poke53281,0
  3. 2 rem******************************
  4. 3 rem*'das gift' ein atventure von*
  5. 4 rem*        frank kraft         *
  6. 5 rem*        jurekstr.32         *
  7. 6 rem*      3031 rekawinkel       *
  8. 7 rem*          austria           *
  9. 8 rem*      tel:02233/29963       *
  10. 9 rem******************************
  11. 10 data76,24,1,177,251,145,251,200,208,249,230,252,202,208,244,96,120,160,0,169
  12. 12 data160,132,251,133,252,162,32,32,11,1,169,224,132,251,133,252,162,32,32,11
  13. 14 data1,169,53,133,1,88,96:fori=264to310:readx:pokei,x:next:sys264
  14. 16 fori=710to730:readx:pokei,x:next
  15. 18 data208,3,76,29,168,32,192,2,32,19,166,56,165,95,233,1,164,96,76,36,168
  16. 20 poke40996,197:poke40997,2:poke1,54
  17. 22 fori=43168to43170:readx:pokei,x:next
  18. 24 fori=704to709:readx:pokei,x:next
  19. 26 data32,192,2,32,138,173,76,247,183
  20. 30 gosub52000
  21. 100 zn=13 :af=0:  goto1130
  22. 1000 rem
  23. 1010 gosub50000
  24. 1105 ifve<1orve>10then1200
  25. 1110 ifri(ve)=0thenprint"kein weg in diese richtung !":goto1200
  26. 1120 zn=ri(ve):print"[147]"
  27. 1130 gosub 10000+zn*100
  28. 1140 restore 10000+zn*100
  29. 1145 if af=1 thenprint"[152]der affe folgt dir."
  30. 1150 fori=1to10:readri(i):next
  31. 1155 :gosub10000+zn*100+20
  32. 1160 print"[151]moegliche richtungen :[155] ";
  33. 1165 ic=0:fori=1to10:ifri(i)<>0thenprintve$(i);",";:ic=1
  34. 1170 nexti
  35. 1175 ific=0thenprint"keine."
  36. 1180 ific=1thenprintchr$(20)
  37. 1185 print"[151]ich sehe :[155] ";
  38. 1186 ic=0:fori=1tooz:ifoo(i)=znthenprintob$(i);",";:ic=1
  39. 1187 next
  40. 1188 fori=1togz:ifge(i)=znthenprintge$(i);",";:ic=1
  41. 1189 if ge(i)=-2andtu(1)=1 and zn=13 thenprintge$(i);",";:ci=1
  42. 1190 next
  43. 1192 ific=0thenprint"nichts besonderes."
  44. 1194 ific=1thenprintchr$(20)
  45. 1200 rem
  46. 2000 rem reaktion auf befehle (allgemeine action)
  47. 2100 rem
  48. 2110 ifve<>15then2200
  49. 2112 ifob<>0 then goto2140
  50. 2119 if ge(g1)=-2 and zn=13 and tu(1)=1then 2125
  51. 2120 ifge(g1)<>znthenprint"ich sehe diesen gegenstand hier nicht !"
  52. 2125 ifge(g1)=-1thenprint"du hast diesen gegenstand bereits !"
  53. 2130 ifge(g1)=znthenge(g1)=-1:print"ok.":goto2200
  54. 2140 rem
  55. 2145 if ob =1andzn=1thenprint"in der regel sind regale nicht leicht."
  56. 2146 if ob =2andzn=1thenprint"leider ist die leiter angeschraubt."
  57. 2147 ifob=3andzn=2thenprint"das ist ja menschenraub!da mach ich     nicht mit."
  58. 2148 if ob =4 and zn=3thenprint"er will nicht ...":cc=0
  59. 2149 if ob =5 and zn=4thenprint"uff,keuch,aechts, das schaff ich nicht":cc=0
  60. 2150 if ob =7 thenprint"willst du moebel stehlen oder was ???":cc=0
  61. 2151 if ob =8 and zn=7 thenprint"die wache verbietet dir das."cc=0
  62. 2152 if ob =9 andzn=8 thenprint"sie sind im boden verwachsen.":cc=0
  63. 2153 if ob =10 and zn=9thenprint"er haelt sich an einem ast fest":cc=0
  64. 2154 if ob =11 andzn=10thenprint"ist das ein scherz ???":cc=0
  65. 2155 if ob =12 andzn=11 thenprint"ich kann ihn nicht fangen...":cc=0
  66. 2156 if ob =13 and zn=12thenprint"er beisst dir in die hand.":cc=0
  67. 2157 if ob =14 and zn=14thenprint"soll ich ihn nicht gleich austrinken ?":cc=0
  68. 2158 if ob =15 and zn=12thenprint"ich bin von greenpeace und verbiete das."cc=0
  69. 2159 if ob =16 andzn=13thenprint"er ist zu schwer um getragen zu werden.":cc=0
  70. 2160 if ob =17andzn=6thenprint"wo willst du sie den hinbringen ???":cc=0
  71. 2161 if ob =18andzn=14 thenprint"er schleimt mir durch die finger.":cc=0
  72. 2197 ifob=10 and af=1 thenprint"der kommt ja sowieso mit...":cc=0
  73. 2200 rem
  74. 2205 ifve<>22then2300
  75. 2210 print"ich habe: ";
  76. 2220 ic=0:fori=1togz:ifge(i)=-1thenprintge$(i)",";:ic=1
  77. 2225 next
  78. 2230 ific=0thenprint"nichts."
  79. 2235 ific=1thenprint"[157] "
  80. 2300 rem
  81. 2301 if ob=16 and zn=13 then goto2400
  82. 2305 ifve<>18then2400
  83. 2310 ifge(g1)<>-1thenprint"ich habe das nicht !"
  84. 2320 ifge(g1)=-1thenge(g1)=zn:print"ok."
  85. 2400 rem
  86. 2405 ifve<>13then2500
  87. 2410 ifob=0andg1=0thenprint"[147]":ve=0:goto1130
  88. 2411 ifob=10andaf=1 thenprint"er ist ein affe wie du und ich."
  89. 2412 ifob=18andoo(18)=znthenge(20)=-1
  90. 2415 ifob=1andoo(1)=znthenprint"ein normales buecherregal."
  91. 2416 ifob=2andoo(2)=znthenprint"sie fuehrt nach oben."
  92. 2417 ifob=3andoo(3)=znthenprint"ein alter neger eben..."
  93. 2418 ifob=4andoo(4)=znthenprint"er hat zwei augen."
  94. 2425 ifob=5andoo(5)=znthenprint"mit ihm kann man funken."
  95. 2426 ifob=7andoo(7)=znthenprint"er ist aus holz"
  96. 2428 ifob=8andoo(8)=znthenprint"er passt auf."
  97. 2429 ifob=9andoo(9)=znthenprint"die buesche wiegen sich im wind."
  98. 2430 ifob=10andoo(10)=znthenprint"er ist ein affe wie du und ich."
  99. 2431 ifob=11andoo(11)=znthenprint"es gehoert dir.
  100. 2432 [139]ob[178]12[175]oo(12)[178]zn[167][153]"er laesst sich nicht untersuchen."
  101. 2433 [139]ob[178]13[175]oo(13)[178]zn[167][153]"er laesst sich nicht untersuchen."
  102. 2434 [139]ob[178]14[175]oo(14)[178]zn[167][153]"er ist sehr schlammig."
  103. 2435 [139]ob[178]15[175]oo(15)[178]zn[167][153]"es ist ein malora baum."
  104. 2436 [139]ob[178]16[175]oo(16)[178]zn[167][153]"es ist dein erste hilfe koffer."
  105. 2437 [139]ob[178]17[175]oo(17)[178]zn[167][153]"sie will sich nicht untersuchen lassen."
  106. 2438 [139]ob[178]18[175]oo(18)[178]zn[167][153]"du findes einen blutegel und nimmst ihn"
  107. 2450 [139] g1[178]0[167][137]2500
  108. 2451 [139]ge(g1)[179][177][171]1[167][153]"das hast du nicht...":[137]2500
  109. 2452 [139]g1[179][177]1[167][137]2462
  110. 2453 [153]"loadcontin  dem  buch  steht  unter  anderem  :"
  111. 2454 [153]"print#serum  gegen  pfeilgift: man nehme eine
  112. 2455 print"malora knospe und zermale sie mit einem
  113. 2456 [153]"frosch. einen blutegel  unter die masse
  114. 2457 print"kneten und  zum  schluss mit etwas harz"
  115. 2458 print"schaumig  ruehren.                     "
  116. 2462 ifg1=2thenprint"in ihr ist ein toter frosch."
  117. 2463 ifg1=3thenprint"er ist tot (snif)
  118. 2464 [139]g1[178]4[167][153]"er ist hart wie stein."
  119. 2465 [139]g1[178]5[167][153]"sie sind gelb und gebogen."
  120. 2466 [139]g1[178]6[167][153]"ein echtes goesser.
  121. 2467 ifg1=7thenprint"es ist keine tuerangel sondern eine zum fischen..."
  122. 2468 ifg1=8thenprint"zu klein zum essen.
  123. 2469 [139]g1[178]9[167][153]"eine malora knospe
  124. 2470 ifg1=10thenprint"blumen sind blumen."
  125. 2471 ifg1=11thenprint"eine kleine weisse pille."
  126. 2472 ifg1=12thenprint"zum verbinden von wunden."
  127. 2473 ifg1=13thenprint"zum schneiden (leider kann ich nicht    schneiden)"
  128. 2474 ifg1=14thenprint"zum ueberkleben von loechern
  129. 2475 [139]g1[178]15[167][153]"kleine weisse koerner.
  130. 2476 ifg1=16thenprint"es hat in diesem adventure keinerlei    bedeutung."
  131. 2477 ifg1=17thenprint"eine stange mit spitze."
  132. 2478 ifg1=18thenprint"es ist keine knospe
  133. 2479 [139]g1[178]19[167][153]"es ist ca. 30cm lang."
  134. 2480 [139]g1[178]20[167][153]"ein dicher, schmieriger wurm."
  135. 2481 [139]g1[178]21[167][153]"ist zwar klebrig, richt aber gut."
  136. 2482 [139]g1[178]22[167][153]"das war mal eine flasche"
  137. 2483 [139]g1[178]23[167][153]"das ist das, was du brauchst."
  138. 2500 [143]
  139. 2505 [139] ve[179][177]23 [167][137]2550
  140. 2510 [139] zn[179][177]13 [167][153]"benutze bitte die himmelsrichtungen.":[137]2550
  141. 2520 [139] zn[178]13  [167] zn[178]10:[153]"load":ve[178]0:[137]1130
  142. 2550 [143]
  143. 2555 [139] ve[179][177]24 [167][137]2600
  144. 2560 [139] zn[179][177]10 [167][153]"benutze bitte die himmelsrichtungen.":[137]2600
  145. 2570 [139] zn[178]10  [167] zn[178]13:[153]"load":ve[178]0:[137]1130
  146. 2600 [143]
  147. 2601 [139] ve[179][177]11 [167] [137]2625
  148. 2602 [139] zn[178]13 [175] ob[178]16 [167] [137]2625
  149. 2605 [139] ob[178]0 [175] g1[178]0 [167][153]"was soll ich oeffnen ???":[137]2625
  150. 2610 [153]"das kann ich nicht oeffnen !"
  151. 2625 [143]
  152. 2626 [139] ve[179][177]12 [167] [137]2650
  153. 2632 [139] zn[178]13 [175] ob[178]16 [167] [137]2650
  154. 2635 [139] ob[178]0 [175] g1[178]0 [167][153]"was soll ich schliessen ???":[137]2650
  155. 2640 [153]"das kann ich nicht schliessen !"
  156. 2650 [143]
  157. 2654 [139] ve[179][177]27 [167] [137]2660
  158. 2657 [153]"du bist arzt und kein moerder !!!"
  159. 2660 [143]
  160. 2661 [139] ve[179][177]25 [167] 2670
  161. 2662 [139] ob[178]10 [175] af[178]1 [175] zn[178]3 [167]2670
  162. 2663 [139] ob[178]10 [175] af[178]1 [167][153]"keiner will den affen.":ve[178]0:[137]2667
  163. 2664 [139] ob[178]10 [175] af[178]0 [167][153]"du hast ihn ja gar nicht.":ve[178]0
  164. 2665 [139] ge(g1)[179][177][171]1[167] [153]"das hast du ja gar nicht!!!":ve[178]0
  165. 2667 [139]zn[178]1[176]zn[178]4[176]zn[178]5[176]zn[178]8[176]zn[178]10[176]zn[178]11[176]zn[178]13[176]zn[178]14[167]cc[178]1
  166. 2668 [139]cc[178]1[167][153]"es ist ja gar keiner da...":cc[178]0:ve[178]0
  167. 2670 [143]
  168. 2700 [143]
  169. 2705 [139] ve[179][177]35 [167] [137]2750
  170. 2710 [139] zn[178]1[176]zn[178]5[176]zn[178]8[176]zn[178]9[176]zn[178]10[176]zn[178]11[176]zn[178]12[176]zn[178]13[176]zn[178]14 [167] cc[178]1
  171. 2715 [139] cc[178]1[167][153]"du fuehrst selbstgespraeche, denn keinerhoert zu":cc[178]0
  172. 2720 [139]zn[178]2[175]sc[178]0[167][153]"er sagt:ich gebe gegengift umsonst nichton"
  173. 2721 [139]zn[178]2[175]sc[178]1[167][153]"er sagt:da unten seien mein wissen ganz.on"
  174. 2722 [139]zn[178]3[175]ne[178]0[167][153]"er sagt:bin so alleinen"
  175. 2723 [139]zn[178]3[175]ne[178]1[167][153]"er sagt:affe hat mich haun. habe blaues auge"
  176. 2724 [139]zn[178]3[175]ne[178]2[167][153]"er sagt:blutegel saugt mein blut ganz"
  177. 2725 [139]zn[178]3[175]ne[178]3[167][153]"er sagt:du so nett. gib mir zutaten ich mach medizin
  178. 2726 ifzn=7thenprint"er sagt:hallo doc."
  179. 2727 ifzn=6thenprint"tauschi tauschi alles gima ."
  180. 2750 rem
  181. 2751 if ve<>40 then goto2800
  182. 2752 if g1=2and ge(g1)=-1 thenprint"du zerbrichst die flasche.":cc=1
  183. 2753 if cc=1 then ge(2)=0:ge(3)=zn:ge(22)=zn:cc=0:goto2800
  184. 2755 if ob=15 and zn=12 thenprint"du schlaegst ein loch in den baum":cc=1
  185. 2756 if cc=1 then ge(21)=12:cc=0:goto2800
  186. 2760 zz=zz+1:ifzz=6then zz=1
  187. 2762 if zz=1thenprint"chaote..."
  188. 2764 if zz=2thenprint"diese jugend heutzutage."
  189. 2768 if zz=3thenprint"zerstoerungswut ???"
  190. 2770 if zz=4thenprint"alles mit der ruhe!"
  191. 2772 if zz=5thenprint"das geht zu weit..."
  192. 2800 rem
  193. 2801 if ve<>30 then goto2850
  194. 2805 if g1=0thenprint"mit der hand ???":goto2850
  195. 2807 if g1<>17 thenprint"damit kann man nichts verjagen.":goto2850
  196. 2809 if zn<>12 thenprint"was willst du verjagen ???":goto2850
  197. 2811 if tg=2thenprint"der tiger ist schon weg !!":goto2850
  198. 2850 rem
  199. 2855 if ve<>48 then goto2900
  200. 2860 if zn<>13 then print"was willst du hier starten ???":goto2900
  201. 2865 print"[147][154]du startest  das flugzeug...und rollst
  202. 2866 [153]"ueber die startbahn. das flugzeug hebt
  203. 2867 print"ab...  du fliegst. ein tolles gefuehl!
  204. 2870 [153]"du fliegst richtung kairo."
  205. 2875 [139] ge(23)[178][171]1[167][153]"du  hast  deinen  auftrag  erfuellt !!!":[137]2890
  206. 2876 [139] ge(23)[178][171]2[176] ge(23)[178]13 [167] ge(23)[178][171]1:[137]2875
  207. 2877 [153]"aber was hast du die ganze zeit gemacht?"
  208. 2890 [153]"noch einmal?"
  209. 2891 [161] a$:[139] a$[178]"n"[167][128]
  210. 2892 [139] a$[178]"j" [176] a$[178]"y"[167] [138]
  211. 2894 [137]2891
  212. 2900 [143]
  213. 2901 [139] ve[179][177]49 [167][137]2950
  214. 2902 [153]"loadcont   einige befehle, die sie in diesem
  215. 2903 print"   adventure verwenden koennen.
  216. 2904 [153]"   --------------------------------
  217. 2905 print"[151]n,s,w,o,nw,no,sw,so,rauf,runter,oeffne
  218. 2907 [153]"schliesse,schaue,untersuche,nimm,lege,
  219. 2909 print"[152]inventur,verlasse, betrete, gib,toete,
  220. 2911 [153]"verjage,funke, fische, sprich,schlage,
  221. 2913 print"[155]starte,woerter,auftrag,hilfe,zerbreche
  222. 2950 [139] ve[179][177]50 [167] [137]3000
  223. 2951 [139] fu[178]1[167][137]2963
  224. 2952 [153]"loadcont              auftragcmdcmdcmdcmdcmdcmdcmdsys-------"
  225. 2953 [153]"pokesie (arzt) sind auf einer missionsreise
  226. 2954 print"[152]im afrikanischen  dschungel. helfen sie
  227. 2955 [153]"listden  eingeborenen,  doch  vergessen sie
  228. 2957 print"nicht mit  der  aussenwelt kontakt auf-
  229. 2959 [153]"print#zunehmen.es koennte sein, dass sie bald
  230. 2961 print"[151]einen anderen auftrag  haben...........
  231. 2963 [139] fu[178]0[167][137]3000
  232. 2964 [153]"loadcont              auftragcmdcmdcmdcmdcmdcmdcmdsys-------"
  233. 2965 [153]"pokesuchen  sie das gegenmittel und bringen
  234. 2967 print"sie  es nach  kairo. viel  glueck......
  235. 3000 [143]
  236. 3001 [139] ve[179][177]51 [167] [137]3100
  237. 3010 [139] zn[178]1[167][153]"nimm was du brauchst."
  238. 3012 [139] zn[178]2[167][153]"es ist ein weiser neger..."
  239. 3013 [139] zn[178]3[167][153]"eine hand waescht die andere."
  240. 3014 [139] zn[178]4[167][153]"kontakt ist das wichtigste.
  241. 3015 if zn=5thenprint"nichts los hier.
  242. 3016 [139] zn[178]6[167][153]"gib ihr was, dann gibt sie dir was.     (wenn sie will)
  243. 3017 if zn=7thenprint"hat er kopfweh ??"
  244. 3018 if zn=8thenprint"unwichtig"
  245. 3019 if zn=9thenprint"der affe, dein freund und helfer."
  246. 3020 if zn=10thenprint"hilf dir selbst.
  247. 3021 [139] zn[178]11[167][153]"schenk deiner frau doch hin und wieder  rote rosen..."
  248. 3022 [139] zn[178]12[167][153]"tiger sind stoerend
  249. 3023 if zn=13thenprint"ich ueberlege gerade..."
  250. 3024 if zn=14thenprint"was bewegt sich da im schlamm???"
  251. 3100 rem
  252. 9990 gosub10000+zn*100+20
  253. 9995 goto1000
  254. 10000 rem
  255. 10100 rem 1
  256. 10102 data 0,0,0,0,0,0,0,0,2,0
  257. 10103 gosub 53030
  258. 10105 print"du bist im keller des weisen mannes.
  259. 10107 [153]"alles ist mit einer dicken staubschicht
  260. 10109 print"bedeckt. es richt nach moderndem holz.
  261. 10120 [142]
  262. 10200 [143] 2
  263. 10202 [131] 0,5,0,0,0,0,0,0,0,0
  264. 10203 [141] 53060
  265. 10205 [153]"du bist im raum des weisen mannes. er
  266. 10207 print"sitzt auf einem teppich, raucht eine
  267. 10209 [153]"pfeife und untersucht einen toten
  268. 10211 print"schmetterling. da liegt noch eine leere bierflasche...
  269. 10220 [143]
  270. 10225 [139]ve[178]25 [175] g1[178]6 [167] [153]"der weise oeffnet eine luke im boden,
  271. 10226 ifve=25 and g1=6 then print"die einen schacht verdeckt hatte.":sc=1
  272. 10227 ifsc=1thenri(10)=1:ge(6)=0
  273. 10299 return
  274. 10300 rem 3
  275. 10302 data 0,0,0,0,0,0,5,0,0,0
  276. 10303 gosub 53090
  277. 10305 print"du bist in einer wohnhuette. ein neger
  278. 10307 [153]"ist gerade dabei ";
  279. 10309 a[178]a[170]1:[139]a[178]6[167]a[178]1
  280. 10310 [139] a[178]1[167][153]"aufzukehren."
  281. 10312 [139] a[178]2[167][153]"aufzuraeumen."
  282. 10313 [139] a[178]3[167][153]"aufzuwaschen."
  283. 10314 [139] a[178]4[167][153]"zu essen."
  284. 10315 [139] a[178]5[167][153]"zu singen."
  285. 10316 [139] ne[178]0[167][153]"er scheint einsam zu sein.":
  286. 10317 [139] ne[178]1[167][153]"er hat ein blaues auge.":
  287. 10318 [139] ne[178]2[167][153]"an seinem auge haengt ein blutegel"
  288. 10319 [139] ne[178]3[167][153]"er ist gluecklich.
  289. 10320 rem
  290. 10325 if ve<>25 then goto 10380
  291. 10330 if ob=10 thenprint"er sagt: jetz bin i nima aloan.":af=2:ne=1
  292. 10332 if g1=20 and ne=1 then print"[152]er sagt:was soll i damit tun???"
  293. 10334 if g1=20 and ne=1then print"[155]du sagst:er wird dir das blut aus dem
  294. 10336 [139] g1[178]20 [175] ne[178]1[167]     [153]"blauen auge ziehen...":ge(20)[178]0:ne[178]2:
  295. 10338 [139] g1[178]15 [175] ne[178]2[167] [153]"print#er fragt:was soll i damit tun."
  296. 10340 [139] g1[178]15 [175] ne[178]2[167] [153]"listdu sagst:streue es ueber den egel und
  297. 10342 if g1=15 and ne=2then print"er wird abfallen.":ne=3:ge(15)=0
  298. 10350 if ne=3 and g1=3 thenprint"er nimmt es.":me=me+1:ge(g1)=0
  299. 10355 if ne=3 and g1=9 thenprint"er nimmt es.":me=me+1:ge(g1)=0
  300. 10357 if ne=3 and g1=20 thenprint"er nimmt es.":me=me+1:ge(g1)=0
  301. 10359 if ne=3 and g1=21 thenprint"er nimmt es.":me=me+1:ge(g1)=0
  302. 10361 ifme=4thenprint"der neger vermischt alles.
  303. 10362 [139]me[178]4[167][153]"er sagt: fertig.
  304. 10363 ifme=4thenge(23)=3:me=5:ne=4
  305. 10380 rem
  306. 10399 return
  307. 10400 rem 4
  308. 10402 data 0,0,0,5,0,0,0,0,0,0
  309. 10403 gosub 53120
  310. 10405 print"du bist  im funkraum der negersiedlung.
  311. 10406 [153]"auf einem kleinen tisch steht ein funk-
  312. 10407 print"geraet, das  leise rauscht und knistert
  313. 10420 [143]
  314. 10425 [139] ve[179][177]32[167] [137]10460
  315. 10426 [153]"loadcontdu hoerst:
  316. 10427 if fu<>0thengoto10450
  317. 10430 print"[151]hallo, hallo,...  hier spricht chefarzt
  318. 10431 [153]"birkzahn  aus  kairo.  bei  uns ist ein
  319. 10432 print"[152]russischer  botschafter mit einem gift-
  320. 10433 [153]"pfeil angeschossen  worden. wir konnten
  321. 10434 print"[155]die  verbreitung  des giftes in  seinem
  322. 10435 [153]"koerper verlangsamen,  aber zum stoppen
  323. 10436 print"[151]des  vergiftungsvorganges  brauchen wir
  324. 10437 [153]"print#ein gegenmittel, dessen herstellung uns"
  325. 10438 [153]"unbekannt ist. doch  in  dem negerdorf,"
  326. 10439 [153]"pokein dem sie sich befinden, ist ein mann,
  327. 10440 print"[155]der sich mit  pfeilgiften gut auskennt.
  328. 10441 [153]"finden  sie ihn, suchen sie die zutaten
  329. 10442 print"[152]des gegengiftes und  bringen sie es so
  330. 10443 [153]"schnell nach kairo wie sie nur koennen.
  331. 10444 print"[151]wenn der botschafter stirbt,koennte das
  332. 10445 [153]"einen krieg ausloesen. viel glueck ....":fu[178]1:[137]10460
  333. 10450 [143]
  334. 10455 [153]"pokebeeile dich doch... du  hast wenig zeit"
  335. 10460 [143]
  336. 10490 [143]
  337. 10499 [142]
  338. 10500 [143] 5
  339. 10502 [131] 2,7,4,6,0,3,0,0,0,0
  340. 10503 [141] 53150
  341. 10505 [153]"du bist am hauptplatz einer kleinen
  342. 10506 print"negersiedlung.im norden ist eine grosse
  343. 10507 [153]"huette, im osten ein kleines geschaeft,
  344. 10508 print"im sueden ist der ausgang,im osten ist
  345. 10509 [153]"der funkraum, den ein weisser missionar
  346. 10510 print"eingerichtet hat, um wichtige meldungen
  347. 10511 [153]"durchzugeben. im no ist der schlafraum
  348. 10512 print"der neger.
  349. 10520 [142]
  350. 10600 [143] 6
  351. 10602 [131] 0,0,5,0,0,0,0,0,0,0
  352. 10603 [141] 53180
  353. 10605 [153]"du bist in einem kleinen laden, in dem
  354. 10606 print"man  keine[160] sehr  grosse  auswahl hat.
  355. 10607 [153]"eine  alte  negerin, sie  fuehrt  das
  356. 10608 print"geschaeft, sagt: tauschi nur tauschi..."
  357. 10620 rem
  358. 10625 if ve <>25 then goto10690
  359. 10630 if g1=18 and ge(g1)=-1then print"sie sagt:ich tausche gegen fisch"
  360. 10631 if g1=18 and ge(g1)=-1then ge(18)=0:ge(8)=-1:goto10650
  361. 10632 if g1=10 and ge(g1)=-1then print"sie sagt:ich tausche gegen bier"
  362. 10633 if g1=10 and ge(g1)=-1then ge(g1)=0:ge(6)=-1:goto10650
  363. 10634 if g1=13 and ge(g1)=-1then print"sie sagt:ich tausche gegen angel"
  364. 10635 if g1=13 and ge(g1)=-1then ge(g1)=0:ge(7)=-1:goto10650
  365. 10636 if g1=19 and ge(g1)=-1then print"sie sagt:ich tausche gegen bananen"
  366. 10637 if g1=19 and ge(g1)=-1then ge(g1)=0:ge(5)=-1:goto10650
  367. 10638 print"sie sagt:mog i net..."
  368. 10650 rem
  369. 10690 rem
  370. 10699 return
  371. 10700 rem raum 7 ---------
  372. 10702 data 5,10,0,8,0,0,0,11,0,0
  373. 10703 gosub53210
  374. 10705 print"du bist beim eingang der negersiedlung.
  375. 10706 [153]"die   negerwache  macht   einen  mueden
  376. 10707 print"eindruck. er  scheint  kopfweh zu haben
  377. 10720 [143]
  378. 10725 [139] ve[179][177]25 [167] [137] 10730
  379. 10726 [139] g1[179][177]11 [167][153]"die wache will das nicht.":[137]10730
  380. 10727 [139] ge(g1)[179][177][171]1 [167][137] 10730
  381. 10728 [153]"die wache dankt dir und gibt dir zum    lohn einen speer":ge(17)[178][171]1
  382. 10729 ge(11)[178]0
  383. 10730 [143]
  384. 10799 [142]
  385. 10800 [143] raum 8 ---------
  386. 10802 [131] 0,11,7,0,0,0,10,12,0,0
  387. 10803 [141] 53240
  388. 10805 [153]"du bist am rande des dschungels. hier
  389. 10806 print"wachsen kleinere straeucher und buesche
  390. 10820 [142]
  391. 10900 [143] raum 9 ---------
  392. 10902 [131] 0,00,0,0,0,0,00,00,0,12
  393. 10903 [141] 53270
  394. 10905 [153]"du bist auf der krone eines malora-
  395. 10906 print"baumes. der wind weht dir ins gesicht.
  396. 10920 [143]
  397. 10925 [139] ve[179][177]25 [167][137]10950
  398. 10927 [139] g1[179][177]5 [167][153]"der affe will das nicht.":[137]10950
  399. 10930 [153]"der affe isst die bananen auf."
  400. 10935 af[178]1:ge(5)[178]0
  401. 10950 [143]
  402. 10999 [142]
  403. 11000 [143] raum 10 --------
  404. 11002 [131] 7,00,0,11,0,8,00,00,0,0
  405. 11003 [141] 53300
  406. 11005 [153]"du stehst neben deinem flugzeug. im
  407. 11006 print"osten erstreckt sich eine landebahn,
  408. 11007 [153]"die zwar kurz, aber fuer dein kleines
  409. 11008 print"flugzeug ausreichend ist.
  410. 11009 [139]na[178]0[167][153]"openein kleiner negerbursche kommt und sagt:
  411. 11010 ifna=0thenprint"[145][154] du  schnell  kommen  in den funkraum.
  412. 11011 [139]na[178]0[167][153]"cont sprechende schachtel will dich sehen.
  413. 11012 ifna=0thenprint"[159]dann  laeuft  er  rufend nach  norden...":na=1
  414. 11020 return
  415. 11100 rem raum 11 --------
  416. 11102 data 8,14,10,12,7,0,00,00,0,0
  417. 11103 gosub 53317
  418. 11105 print"du bist auf der landebahn. da sie nicht
  419. 11106 [153]"oft gebraucht wird, bluehen hier einige
  420. 11107 print"blumen. insekten umschwaermen dich."
  421. 11120 return
  422. 11200 rem raum 12 --------
  423. 11202 data 0,00,11,00,8,0,00,00,0,0
  424. 11203 gosub 53334
  425. 11205 print"du stehst am fusse eines malora baumes.
  426. 11206 [139] tg[178]0 [167] [153]"ein tiger liegt neben dem stamm."
  427. 11220 [143]
  428. 11225 [139] ve[178]30 [175] g1[178]17 [175] ge(g1)[178][171]1 [175] tg[178]0 [167]  cc[178]1
  429. 11228 [139]cc[178]1[167][153]" du vertreibst den tiger mit dem speer !":tg[178]1:cc[178]0
  430. 11229 [139] tg[178]1 [167] oo(13)[178]0
  431. 11230 [139] tg[178]1 [167] ri(9)[178]9
  432. 11299 [142]
  433. 11300 [143] raum 13 --------
  434. 11302 [131] 0,00,00,00,0,0,00,00,0,0
  435. 11303 [141] 53351
  436. 11305 [153]"du bist in deinem flugzeug.
  437. 11320 rem
  438. 11325 if ve=11 and ob=16 and tu(1)=0then tu(1)=1:print"ok":goto11330
  439. 11326 if ve=11 and ob=16 and tu(1)=1then:print"ist schon offen..."
  440. 11327 if ve=12 and ob=16 and tu(1)=1then tu(1)=0:print"ok":goto11330
  441. 11328 if ve=12 and ob=16 and tu(1)=0thenprint"ist schon zu..."
  442. 11330 if ve=15 and ge(g1)=-2andtu(2)=0thenprint"ok":ge(g1)=-1
  443. 11332 if ve=18 and ob=16 and tu(1)=1 and ge(g1)=-1thenprint"ok":ge(g1)=-2
  444. 11333 if ve=18 and ob=16 and tu(1)=0 and ge(g1)=-1then kk=1
  445. 11334 if kk=1 then print"in einen geschlossenen koffer kann ich  nichts legen!"
  446. 11335 if kk=1 then kk=0
  447. 11399 return
  448. 11400 rem raum 14 --------
  449. 11402 data 11,00,00,00,0,0,00,00,0,0
  450. 11403 gosub 53361
  451. 11405 print"du bist an einem stillen see.das wasser
  452. 11406 [153]"weht und der wind plaettschert.....
  453. 11407 print"das ufer ist sehr schlammig "
  454. 11420 rem
  455. 11425 if ve<>33 thengoto11440
  456. 11426 if ge(8)<>-1 thenprint"du brauchst einen koeder":cc=1
  457. 11427 if ge(7)<>-1 thenprint"du brauchst eine angel.":cc=1
  458. 11428 if cc=1 then cc=0:goto11440
  459. 11430 print"du faengst zu deinem erstaunen ein
  460. 11431 [153]"kleines krokodil ..."
  461. 11432 ge(8)[178]0:ge(19)[178]14
  462. 11440 [143]
  463. 11499 [142]
  464. 50000 [143] ****************************
  465. 50010 [143] *     befehlseingabe       *
  466. 50020 [143] *     befehlszerlegung     *
  467. 50030 [143] *     befehlscodierung     *
  468. 50040 [143] ****************************
  469. 50050 [139]ud[178]1[167]50220
  470. 50055 [153]"print#----------------------------------------"
  471. 50060 [151]198,0:be$[178]"":[153]"contwas nun ?for ";
  472. 50070 [151]204,0
  473. 50080 [161]x$:[139]x$[178]""[167]50080
  474. 50090 [139][194](203)[178]1[176][195](be$)[177]68[167][153]" ":[151]204,1:[137]50140
  475. 50100 i[178][198](x$):[139]i[179]65[176]i[177]90[167][139]i[179][177]32[175]i[179][177]20[175]i[179][177]34[167]50080
  476. 50110 [139]i[178]20[175]be$[178]""[167]50080
  477. 50120 [139]i[178]20[167][151]204,1:[153]"cmd  cmdcmd";:be$[178][200](be$,[195](be$)[171]1):[137]50070
  478. 50130 [153]x$;:be$[178]be$[170]x$:[137]50080
  479. 50140 [153]"":      [129]i[178]1[164]10:be$(i)[178]"":[130]:wz[178]1:[129]i[178]1[164][195](be$)
  480. 50150 :[139][202](be$,i,1)[178]" "[167][141]50190:[137]50180
  481. 50160 :[139]wz[177]10[167][153]"eingabe ist zu lang !":i[178][195](be$)[170]1:[137]50180
  482. 50170 :be$(wz)[178]be$(wz)[170][202](be$,i,1)
  483. 50180 [130]i:[137]50220
  484. 50190 ic[178]0:[129]i1[178]1[164]az:[139]be$(wz)[178]au$(i1)[167]ic[178]1
  485. 50200 [130]i1:[139]ic[178]0[167]wz[178]wz[170]1:[142]
  486. 50210 be$(wz)[178]"":[142]
  487. 50220 [139]ud[178]1[167]ud[178]0:[137]50240
  488. 50230 wz[178]1:ve[178]0:ob[178]0:pe[178]0
  489. 50240 ic[178]0:g1[178]0:g2[178]0
  490. 50250 [129]i[178]1[164]vz:[139]be$(wz)[178]ve$(i)[167]ve[178]i:ic[178]1
  491. 50251 [139][195](be$(wz))[179]3[167]50260
  492. 50255 [139]be$(wz)[178][200](ve$(i),[195](be$(wz)))[167]ve[178]i[171][197]([201](ve$(i),1)):ic[178]1
  493. 50260 [130]i:[139]ic[178]1[167]50350
  494. 50270 [129]i[178]1[164]gz:[139]be$(wz)[179][177]ge$(i)[167]50300
  495. 50280 ic[178]1:[139]g1[178]0[167]g1[178]i
  496. 50290 g2[178]i:[139]g2[178]g1[167]g2[178]0
  497. 50300 [130]i:[139]ic[178]1[167]50350
  498. 50310 [129]i[178]1[164]oz:[139]be$(wz)[178]ob$(i)[167]ob[178]i:ic[178]1
  499. 50320 [130]i:[139]ic[178]1[167]50350
  500. 50330 [129]i[178]1[164]pz:[139]be$(wz)[178]pe$(i)[167]pe[178]i:ic[178]1
  501. 50340 [130]i
  502. 50350 [139]be$(wz)[178]"und"[167]ud[178]1:ic[178]1
  503. 50360 [139]ic[178]0[167][153]"ich kenne ";be$(wz);" nicht !":[142]
  504. 50370 wz[178]wz[170]1:[139]wz[177]10[176]be$(wz)[178]""[176]ud[178]1[167][142]
  505. 50380 ic[178]0:[137]50250
  506. 52000 [143] t a b e l l e n
  507. 52001 [140]52000
  508. 52002 [143] aus-woerter ---------
  509. 52005 [131]der,die,das,den,dem, ,ueber,unter,auf,in
  510. 52006 [131]vom,von,im,nach,durch,mit,am
  511. 52025 az[178]17:[134]au$(az):[129]i[178]1[164]az:[135]au$(i):[130]
  512. 52028 [143] verbtabelle ---------
  513. 52029 [131]n,s,w,o,nw,no,sw,so,rauf,runter
  514. 52030 [131]oeffne,schliesse,schaue,untersuche1,nimm,nehme1,hole2
  515. 52035 [131]verliere,lege1,wirf2,werfe3,inventur,verlasse,betrete,gib,schenke1
  516. 52036 [131]toete,morde1,kille2,verjage,vertreibe1,funke,fische,angle1
  517. 52037 [131]sprich,rede1,spreche2,frage3,befrage4,schlage,zerbreche1,breche2,
  518. 52038 [131]zerhaue3,haue4,ritze5,zerschlage6,starte,woerter,auftrag,help,hilfe1
  519. 52100 vz[178]52:[134]ve$(vz):[129]i[178]1[164]vz:[135]ve$(i):[130]
  520. 52200 [143] gegenstandstabelle ---------
  521. 52210 [131]buch,1
  522. 52211 [131]flasche,1
  523. 52212 [131]frosch,0
  524. 52213 [131]steine,5
  525. 52214 [131]bananen,0
  526. 52215 [131]bier,0
  527. 52216 [131]angel,0
  528. 52217 [131]koederfisch,0
  529. 52218 [131]knospe,9
  530. 52219 [131]blumen,11
  531. 52220 [131]aspirin,-2
  532. 52221 [131]verband,-2
  533. 52222 [131]schere,-2
  534. 52223 [131]pflaster,-2
  535. 52224 [131]salz,-2
  536. 52225 [131]jod,-2
  537. 52226 [131]speer,0
  538. 52227 [131]bluete,9
  539. 52228 [131]krokodil,0
  540. 52229 [131]blutegel,0
  541. 52230 [131]harz,0
  542. 52231 [131]scherben,0
  543. 52232 [131]medizin,0
  544. 52300 gz[178]23:[134]ge$(gz):[134]ge(gz):[129]i[178]1[164]gz:[135]ge$(i):[135]ge(i):[130]i
  545. 52400 [143] objekttabelle ---------
  546. 52410 [131]regal,1
  547. 52412 [131]leiter,1
  548. 52414 [131]weisen,2
  549. 52416 [131]neger,3
  550. 52418 [131]funkgeraet,4
  551. 52419 [131]tisch,4
  552. 52420 [131]tisch,6
  553. 52421 [131]wache,7
  554. 52422 [131]buesche,8
  555. 52423 [131]affe,9
  556. 52424 [131]flugzeug,10
  557. 52425 [131]schmetterling,11
  558. 52426 [131]tiger,12
  559. 52427 [131]see,14
  560. 52428 [131]baum,12
  561. 52429 [131]koffer,13
  562. 52430 [131]negerin,6
  563. 52431 [131]schlamm,14
  564. 52500 oz[178]18:[134]ob$(oz):[134]oo(oz):[129]i[178]1[164]oz:[135]ob$(i):[135]oo(i):[130]i
  565. 52510 [142]
  566. 52600 [151]53280,0:[143] dia
  567. 52605 [141] 53000:[141]53030:[141]53060:       [141]53090:[141]53120:[141]53150
  568. 52610 [141] 53180:[141]53210:[141]53240:       [141]53270:[141]53300:[141]53317
  569. 52615 [141] 53334:[141]53351:[141]53361
  570. 52700 [128]
  571. 53000 [151]53281,10:[153]"loadstop         wait            newnewstop                 ";
  572. 53001 [153]"                    wait stop                   ";
  573. 53002 [153]"         wait   stop wait stop wait   stop  waitrndstop                   ";
  574. 53003 [153]"        wait*stop    wait stop wait stop     stop                   ";
  575. 53004 [153]"         stop wait*stop  waitrndstop wait*rndstop    stop                   ";
  576. 53005 [153]"         stop   stop  stop  stop     stop                   ";
  577. 53006 [153]"           stop   stop  stop     stop                   ";
  578. 53007 [153]"                                        ";
  579. 53008 [153]"                                        ";
  580. 53009 [153]"                 cont stop                      ";
  581. 53010 [153]"                 cont stop                      ";
  582. 53011 [153]"            toandposposnewcont stopposandandtoto                 ";
  583. 53012 [153]"newnewnewwaitfrefrefreusrusrusrtab(tab(sys    pospos logwait sys     stoptab(tab(tab(tab(usrusrusrusrfrefrefrenewnewpospos";
  584. 53013 [153]"wait            cos        stopwait                   ";
  585. 53014 [153]"sys        *        waitlog    waitrndsys                 ";
  586. 53015 [153]"      *   waitcoslog    waitcossys rnd  waitcos syswait   stopein adventuresys ";
  587. 53016 [153]"     *  waitcossys cos  syswait  waitcossys *  waitcossys log syswait                ";
  588. 53017 [153]"     logcossys  *  syswait cos wait *  waitgetsys *  waitrndsys    stop  vonsys      ";
  589. 53018 [153]"           waitcossys    waitlog  logsyswait logcoslog syswait               ";
  590. 53019 [153]"        *  waitrndsys  cos waitrndsys    waitcossys     frank kraft sys ";
  591. 53020 [153]"       cos waitcos  waitcossys cos  waitrndlog  syswait                   ";
  592. 53021 [153]"        waitcossys log  syswait  cos waitcos* syswait             sys       ";
  593. 53022 [153]"      abs waitrndsys abs waitcossys    *  waitrndsys                   ";
  594. 53023 [153]"       fre waitrndsys cossys     logcoslogcossys                   ";
  595. 53025 [161]a$:[139]a$[178]""[167][137]53025
  596. 53026 [153]"load":[151]53280,0:[151]53281,0:[142]
  597. 53030 [151]53281,0:[153]"loaddef                       poke(NULL)fnlist print#    list print# pokewaitstepdef       ";
  598. 53031 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tanlist deftan(NULL)tan(NULL)list def(NULL)tan(NULL)poke     defwait ";
  599. 53032 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tanlist      def(NULL)tan(NULL)poke     defwait ";
  600. 53033 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tanlist tan(NULL)tan(NULL)listclosedef(NULL)tan(NULL)poke     defwait ";
  601. 53034 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tanlist deftan(NULL)tan(NULL)listclosedef(NULL)tan(NULL)poke     defwait ";
  602. 53035 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)  deftan(NULL)list def(NULL)tan(NULL)tan(NULL)tanlist     closedef(NULL)tan(NULL)poke     defwait ";
  603. 53036 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)  deftan(NULL)list def(NULL)tan(NULL)tan(NULL)tanlist tan(NULL)tan(NULL)list def(NULL)tan(NULL)poke     defwait ";
  604. 53037 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)  deftan(NULL)list def(NULL)tan(NULL)tan(NULL)tanlist deftan(NULL)tan(NULL)listclosedef(NULL)tan(NULL)poke     defwait ";
  605. 53038 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)for         def(NULL)tan(NULL)tanlist      def(NULL)tan(NULL)poke     defwait ";
  606. 53039 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tanverifyusrtan(NULL)tan(NULL)tanverifyusrtandef(NULL)tan(NULL)tanlist tan(NULL)tan(NULL)list def(NULL)tan(NULL)poke     defwait ";
  607. 53040 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)deftan(NULL)tan(NULL)tanlist deftan(NULL)tan(NULL)list def(NULL)tan(NULL)poke     defwait ";
  608. 53041 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tandef(NULL)tan(NULL)tan(NULL)tanlist      def(NULL)tan(NULL)poke     defwait ";
  609. 53042 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tanlist tan(NULL)tan(NULL)list def(NULL)tan(NULL)poke     defwait ";
  610. 53043 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tanlist deftan(NULL)tan(NULL)list def(NULL)tan(NULL)poke     defwait ";
  611. 53044 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tanlist      def(NULL)tan(NULL)poke     defwait ";
  612. 53045 [153]"poke     def(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tanlist tan(NULL)tan(NULL)list def(NULL)tan(NULL)poke     defwait ";
  613. 53046 [153]"poke    waitstepdef        print#.def  print#.def  sys.def sys.def sysstep.list sys . .list sys defwait  poke(NULL)    defwait ";
  614. 53047 [153]"poke   waitstep.def print# def print#.def  print#.def  print#.def print#.def sys.def sys.def sysstep.waitstep      .waitsgn.def poke(NULL)   defwait ";
  615. 53048 [153]"poke  waitstepdef   poke.def      poke.def     sys.def sysstep .  .   . waitint .def poke(NULL)  defwait ";
  616. 53049 [153]"poke waitstepdef poke.def  print# def  poke.def print#.def   print#.def sys.def       sys.def   sys.def  sys.def    poke(NULL) defwait ";
  617. 53050 [153]"pokestepdef      poke.def     poke.def    sys.def sys.def sys.def    print#.def  sys..def  sys.def print#.def poke(NULL)def ";
  618. 53051 [153]"     poke.def  poke.def  print# def print#.def  print#.def       print#.def sys.def sys.def   sys.def     poke def ";
  619. 53052 [153]"   poke.def  poke.def    poke.def   poke.def   sys.def  sys.def        print#.def  poke.def     ";
  620. 53053 [153]"      poke.def    print#.def  print#.def  print#.def      print#.def    print#.def       poke def  ";
  621. 53054 [153]"   poke.def     poke.def          print#.def      print#.def     print#.def     
  622. 53055 goto53025
  623. 53060 poke53281,0:print"[147][129]                                        ";
  624. 53061 print"          [149]     [129]                         ";
  625. 53062 print"            [149][190]   [146][163][163][183][197][192][175][129]                 [149] ";
  626. 53063 print"[129]           [149][190]     [146][187]    [180] [129]                ";
  627. 53064 print"           [149]    [192][192][210][210][197][146]  [194] [129]                ";
  628. 53065 print"           [149]    [192][192][210][210][192][197][146][183][170] [129]                ";
  629. 53066 print"          [149][190]    [151] [209][149]   [151] [209][149][146] [165][129]                ";
  630. 53067 print"          [149] [201]       [223][151][146] [149]  [199] [129]               ";
  631. 53068 print"          [149][170][194]        [151][146]  [149] [199] [129]               ";
  632. 53069 print"          [149][170][200]        [146]   [194] [129]               ";
  633. 53070 print"          [149][170][194]      [209] [146]   [194] [129]               ";
  634. 53071 print"          [149] [180]         [146] [151][161] [149][146] [129]               ";
  635. 53072 print"          [149][188][155] [149]      [194] [194][146] [151][181][182][149][146] [129]               ";
  636. 53073 print"           [155]  [149]    [158][219][219][219][219][149][146] [151][180][146][161][149] [129]               ";
  637. 53074 print"           [155][188]  [149]       [146][190][151] [146][181][129]                ";
  638. 53075 print"            [155][188]  [149]     [146][190][152] [151][160][149][146] [129]                ";
  639. 53076 print"             [149] [155]   [149]  [172][152]  [151][160][149][146] [129]                ";
  640. 53077 print"            [149][172]  [155]   [152]    [146][181][129]                 ";
  641. 53078 print"           [149]     [155]   [152]   [146][180][129]                 ";
  642. 53079 print"          [149][172]      [155]      [149]  [188][129][146]              ";
  643. 53080 print"      [149][172]          [155]      [149]       [188][129][146]         ";
  644. 53081 print"     [149][190]          [155]       [149]        [188][129][146]        ";
  645. 53082 print"    [149][172]          [155]       [149]          [146][187][129]       ";
  646. 53083 print"    [149]           [155][160]    [149]             [129][146]       ";
  647. 53084 print"[149]            [209]   [155]    [149]    [209]        [146]      
  648. 53085 [137]53025
  649. 53090 [151]53281,0:[153]"loadverify                                        ";
  650. 53091 [153]"                                 andpos     ";
  651. 53092 [153]"                fornew    waitnewverify           ++ wait    ";
  652. 53093 [153]"              for*        waitrndverify       for verify ++ waitsgn   ";
  653. 53094 [153]"              for          verifywait       for  verify+++waitint   ";
  654. 53095 [153]"             for*          verifywaitrnd     forget  verify+++abswait   ";
  655. 53096 [153]"             for           verify wait     forint  verify+++thenwait   ";
  656. 53097 [153]"             for   poke (NULL) for poke (NULL) for verifyclosewait     forsgn verify     wait   ";
  657. 53098 [153]"             for           verifyclosewait     for closeverify     wait   ";
  658. 53099 [153]"             forlog     verify for    verifywaitcos     forsgn  verify   +wait   ";
  659. 53100 [153]"              for     verify for    verifywait      forint   verify  waitget   ";
  660. 53101 [153]"              for          verifywait      forabs   verify  waitint   ";
  661. 53102 [153]"              for   sys(NULL)(NULL)(NULL)(NULL)(NULL)for  verifywait      forthen   verify  waitsgn   ";
  662. 53103 [153]"              forlog    tan   waitcosverify       for   verify  wait    ";
  663. 53104 [153]"               forrnd      *verifywait       forabs    verify waitsgn   ";
  664. 53105 [153]"                forwaitlog    waitcosverify wait       forget    verify waitint   ";
  665. 53106 [153]"              sys verify        sys verifywait      forget    verifyclosewaitint   ";
  666. 53107 [153]"             new sys verify      sys verify waitnewnew    forint    verifyclosewaitget  for ";
  667. 53108 [153]"verify          *     sys      verify      waitrnd forint    verify waitget   ";
  668. 53109 [153]"        *        list    verify         forsgn    verifycloseabswait   ";
  669. 53110 [153]"      *           list  verify          forfn    verifycloseabswait   ";
  670. 53111 [153]"     *                        for     verifyclosethenwait   ";
  671. 53112 [153]"    *                         for     verify thenwait   ";
  672. 53113 [153]"                                        ";
  673. 53115 [137]53025                                    s
  674. 53120 [151]53281,0:[153]"loadverify             print#+verify                          ";
  675. 53121 [153]"             print#+verify                          ";
  676. 53122 [153]"             print#+verify                          ";
  677. 53123 [153]"             print#getverifywait                          ";
  678. 53124 [153]"             print#intverifywait                          ";
  679. 53125 [153]"             print#fnverifywait                          ";
  680. 53126 [153]"             print# verifywait                          ";
  681. 53127 [153]"            stepprint#            (NULL)verifywait              ";
  682. 53128 [153]"           step            (NULL) verifywait              ";
  683. 53129 [153]"           cont(NULL)tantantantanright$      +  verifywait              ";
  684. 53130 [153]"           contpeekspc(spc(spc(spc(peek pokefnprint#sgnlistfnsgncont +  verifywait              ";
  685. 53131 [153]"           contpeekspc(spc(spc(spc(peek frefrefrefrecont +  for             verifywait ";
  686. 53132 [153]"           contpeekspc(spc(spc(spc(peek      +  for             verifywait ";
  687. 53133 [153]"           contmid$tantantantan(NULL)      +  fn(NULL)for           contwait ";
  688. 53134 [153]"verify          cont*tanright$    poke(NULL)right$(NULL)right$contsgn + (NULL)(NULL)waitstepverify  for         verifywait ";
  689. 53135 [153]"          contabs(NULL)-tantantantanpokemid$(NULL)mid$(NULL)contsgn +(NULL)(NULL)waitstepverify     for   usrfrenewposverifywait ";
  690. 53136 [153]"        cont  logtan(NULL)    usrusrusrusr (NULL)(NULL)(NULL)waitstepverify      for       verifywait ";
  691. 53137 [153]"         forstep conttab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(waitstepverify       for       verifywait ";
  692. 53138 [153]"        forstep                              verifywait ";
  693. 53139 [153]"       forstep                               verifywait ";
  694. 53140 [153]"      forstep                                verifywait ";
  695. 53141 [153]"                                       wait ";
  696. 53142 [153]"                                       wait ";
  697. 53143 [153]"                                        ";
  698. 53144 [153]"                                       
  699. 53145 goto 53025
  700. 53150 poke53281,0:print"[147][149]                 [149][146]                       ";
  701. 53151 print"                  [149][146]  [149][146]                    ";
  702. 53152 print"                       [149][146]                 ";
  703. 53153 print"[149]               [149][169]          [223][146]             ";
  704. 53154 print"              [149][169]            [223][146]       [169][205] [146]  ";
  705. 53155 print"        [129][146] [149][172] [223] [149][169]              [223][146]     [169]  [205][146]  ";
  706. 53156 print"       [149][146][172]    [223]                [223][146]   [169]    [146]  ";
  707. 53157 print"    [129] [162][149]       [223][151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][149][146]    [169]     [146]  ";
  708. 53158 print"   [129][172]  [149]        [223][151]  [149][146]  [151]  [149][146]  [151]  [149][146]  [151] [146][172] [153] [146][187] [149]     [158][146] [149] ";
  709. 53159 print"  [129][190][205]    [149]      [146][169][151]  [149][146]  [151]  [149][146]  [151]  [149][146]  [151] [153]   [153] [149][146] [223]    [158][146] [149] ";
  710. 53160 print"  [129][206][205][205]    [149]    [146][169][151]   [183][183]  [183][183]  [183][183] [153]     [129][223][149][146][223]   [158][146] [149] ";
  711. 53161 print"  [129][206][205][205][205]    [149]  [146][169][151][169]   [175][175]         [153]     [129][205][223][149][146][223]  [158][146] [149] ";
  712. 53162 print"  [129][206][205][205][205][205]    [146][169][151][169][170][149][146] [151]  [149]  [151][180] [149][146]  [151]  [149][146]  [151]      [129][205][205][223][149][146][223] [158][146] [149] ";
  713. 53163 print"  [129][206][205][205][205][205][205]  [146][169][151][169] [170][149][146] [151]  [149][201] [151][180] [149][146]  [151]  [149][146]  [151]      [129][205][205][205][223][149][146][223][158] [149] ";
  714. 53164 print"  [129][206][205][205][205][205][205][205][146][169][152][169][151]  [170]   [149]  [151][180] [183][183]  [183][183] [146]   [158].[151] [129][205][205][205][205][223][149][146] [129] ";
  715. 53165 print"[149]  [152]       [169] [151]  [170]   [149]  [151][180]        [146]    [158] [129][205][205][205][205][205][146]  ";
  716. 53166 print"[149]         [152]  [151][146][169] [170][152][146]   [149][163][163][152]        [158][167] .[151] [158]  [129][205][146][223][205][205][205][146]  ";
  717. 53167 print"  [149] [152][146]  [149] [152][146]  [149] [152] [151] [152][146] [151] [146][169][152]  [158].[152]      [158].[152] [158]  [182][188][146]  [190] [129][205][149][223][129][146][223][205][205][146]  ";
  718. 53168 print"[149]   [152][146]  [149] [152][146]  [149] [152] [151] [152][146] [151][169][152]            [158]  [161]     [129][205][149] [223][129][205][205][149][146] [129] ";
  719. 53169 print"[149]         [152] [151] [152][146]      [158].[152]     [158]  . [181] .   [129][205][149] ,[129][205][205][149][146] [129] ";
  720. 53170 print"[149]         [151] [146][169][152]           [158]  .  [180]    [167][129][146][223][149]  [129][205][205][149][146] [129] ";
  721. 53171 print"[158] [149]        [151][146][169][152]  [160] [158].[152]     [158].[152]  [158]   [169]     [182][129][146] [149][223] [129][205][205][149][146] [129] ";
  722. 53172 print"[149]  [152]       [158] [152][146]            [158] [152] [158] [169]  .   [146][180][129]  [149][223][129][205][205][149][146] [129] ";
  723. 53173 print"[158]  [152]      [158][167]                       [129][146]    [223][205][158][146] [129] ";
  724. 53174 print"[158]                                       
  725. 53175 [137]53025
  726. 53180 [151]53281,0:[153]"loadprint#         cont+verifyfnprint#                    print#         ";
  727. 53181 [153]"         cont+verifychr$print#              (NULL)usrusrusrusrusr(NULL)print#        ";
  728. 53182 [153]"         cont+verifypeekprint#       forandprint#      step(NULL)print#wait    +print#        ";
  729. 53183 [153]"         cont+verifyleft$print#     for*   waitrndprint#    log print#wait    +print#        ";
  730. 53184 [153]"         cont+verify+ print#    forintverify* rndforabsprint#wait    (NULL)stepprint#    +print#        ";
  731. 53185 [153]"         cont+verify sgnprint#    for+verify . forsgnprint#wait    step(NULL)print#wait    +print#        ";
  732. 53186 [153]"         cont+print# verifyintprint#     verify - print#wait           +print#        ";
  733. 53187 [153]"         logprint# verifygetprint#     verify   print#wait           +print#       verify ";
  734. 53188 [153]"print#           verifygetprint#  verifystep  verify    verify (NULL)print#wait        +print#        ";
  735. 53189 [153]"        sys  print#wait verifygetprint# verifystep   verify    verify  (NULL)print#wait  peekprint#    +print#        ";
  736. 53190 [153]"       sys    verifywaitgetstep        verify   print#wait   print#wait  print#wait  +print#        ";
  737. 53191 [153]"      sys      verify  print#wait       print#wait verify  print#wait   print#wait cont print#wait cont wait+print#        ";
  738. 53192 [153]"      forandandandandandandandandandandandandandandandandandandandandandandandandandandprint#wait        ";
  739. 53193 [153]"        for    verify              for    print#wait          ";
  740. 53194 [153]"        for    verify forwaittausch  ladiverify for    print#wait          ";
  741. 53195 [153]"        for    verify              for    print#wait          ";
  742. 53196 [153]"        for                      print#wait          ";
  743. 53197 [153]"        for                      printwait(NULL)(NULL)atnatnprint#      ";
  744. 53198 [153]"        for                      printwait(NULL)(NULL)printatn(NULL)(NULL)print#     ";
  745. 53199 [153]"        for                      printwait(NULL)(NULL)(NULL)(NULL)print(NULL)(NULL)print#   for ";
  746. 53200 [153]"print#        for                      printwaitatn(NULL)printatn(NULL)atn(NULL)(NULL)print#   ";
  747. 53201 [153]"                             (NULL)print# (NULL)(NULL)print#       ";
  748. 53202 [153]"                                        ";
  749. 53203 [153]"                                        ";
  750. 53204 [153]"                                       
  751. 53205 goto53025
  752. 53210 poke53281,0:print"[147][149]                                  [149][146]      ";
  753. 53211 print"             [149][146]                   [170] [155][146][180][149]     ";
  754. 53212 print"              [149][146]                  [182] [155][146][181][149]     ";
  755. 53213 print"     [166][166][166][166][166][166][166][166][166][166][149][146]                 [161] [155][146][181][149]     ";
  756. 53214 print"     [129]          [149][146]                 [181] [155][182][149][146]     ";
  757. 53215 print"     [129] [162][162][162]  [162][162][162] [149][146]                 [180] [155][170][149][146]     ";
  758. 53216 print"     [129] [152] - [129]  [152] - [129] [149] [146]               [170]  [155] [146][180][149]    ";
  759. 53217 print"     [129] [163][163][163][194][194][163][163][163] [149] [146]                  [155] [149][146]     ";
  760. 53218 print"     [129]   [213][203][202][201]   [149][160][146]                [154]   [149][146]     ";
  761. 53219 print"     [129]   [202][201][213][203]   [149][160][146]                [154]   [149][146]     ";
  762. 53220 print"     [129]    [202][203]    [149][146]                 [154]   [149][146]     ";
  763. 53221 print"     [129]   [175][175][175][175]   [149][146]                 [154]   [149][146]     ";
  764. 53222 print"     [129][188]  [173][177][177][189]  [146][190][149]                 [154]   [149][146]     ";
  765. 53223 print"      [129]        [149][146]                  [154]   [149][146]     ";
  766. 53224 print"      [129][188]      [146][190][149]                  [154]   [149][146]     ";
  767. 53225 print"     [129][172] [146][188]    [146][190] [146] [149]                 [154][160]  [149][146]     ";
  768. 53226 print"[129][184][183][183][163][163]   [163][163][163][163]   [163][163][183][183][184][146][185][149]           [154]   [149] [129]  [149][146]  ";
  769. 53227 print"[129]                      [188][149][146]       [129][190]       [149][146]  ";
  770. 53228 print"[129]                        [149][146]     [129][172]      [149] [146][180]  ";
  771. 53229 print"[129]                        [146][161][149]   [129][172]   [154]  [149]   [146][181]  ";
  772. 53230 print"[129]                         [149][146]  [129][172]    [154] [149]    [146][180]  ";
  773. 53231 print"[129]                         [182][146][172]   [160] [154][160][149]   [172][146]   ";
  774. 53232 print"[129]                    [200][165]  [172][190]     [172][154]   [149][146][183]    ";
  775. 53233 print"[129]    [209]            [209]  [170][165] [172][190]     [146][190][149] [154]   [149][146]     ";
  776. 53234 print"[129]                                       
  777. 53235 [137] 53025
  778. 53240 [151]53281,5:[151]53280,5:[153]"load                                      wait  ";
  779. 53241 [153]"                                      wait  ";
  780. 53242 [153]"                                      wait  ";
  781. 53243 [153]"                                      wait  ";
  782. 53244 [153]"                                      wait  ";
  783. 53245 [153]"                   *wait  *rnd              wait  ";
  784. 53246 [153]"                  *wait      rnd            wait  ";
  785. 53247 [153]"            rndwait new newwait          newrndrnd        wait  ";
  786. 53248 [153]"for     *  *rnd  forwait       peek   fn              forwait  ";
  787. 53249 [153]"   *forwait   *forwait  rnd*forwait       chr$ verifygetforthen       rnd       forwait  ";
  788. 53250 [153]"   logforwait      verifyintsinfor       sgn verifyintforabs sgn      rnd      forwait  ";
  789. 53251 [153]"    logforwait     verifysgnfor sinfor     +verifysgnleft$fnforgetwait+              forwait  ";
  790. 53252 [153]"    absforwait  peekverifythenabsfor  logrndfor  + getverifywaitintleft$fnforfnwaitleft$              forwait  ";
  791. 53253 [153]"  close absforwait  left$verifyabsgetforwait verifysgnfor getfor   sgnintverifyabswaitabssgnforsgnwaitpeek    rnd     rndlognewnewforwait  ";
  792. 53254 [153]"   *forwait   left$verifyabsintwait+ fnsin for  sgnfnverify+wait+for +waitchr$      rnd ^forwait       ";
  793. 53255 [153]"   waitintfor  peek+verifygetsgnwaitpeekpeekfor  cosforwait  chr$ verifythenforintwait +waitsgn    cos  *forwait        ";
  794. 53256 [153]"   waitintfor  peekpeekverifyintfnwaitchr$sgnfor   forwait  left$ verify forsgnwait sgnwaitsgn   cos   forwait         ";
  795. 53257 [153]"   waitrndfor  ++verifyint waitsgnfor  newnew forwait   verify for verify for waitsgn cosnewnewnewnewnewforwait         ";
  796. 53258 [153]"  sysandandandandposposforpeekverify syswaitnewnewposnewnewfrefreusrusr     tab(tab(tab(usrusrusrfrefrefrewaitnewnewnewposand  ";
  797. 53259 [153]"  sys  .           .    .       .   .    wait  ";
  798. 53260 [153]"  sys  .       .            .        .   wait  ";
  799. 53261 [153]"  sys       .         .          .       wait  ";
  800. 53262 [153]"  sys   .               .            .   wait  ";
  801. 53265 [137]53025
  802. 53270 [151]53281,5:[151]53280,5:[153]"loadfor                                      forwait  ";
  803. 53271 [153]"                                      forwait  ";
  804. 53272 [153]"                   waitfrefrefrefre               forwait  ";
  805. 53273 [153]"                waitcosverify       log             forwait  ";
  806. 53274 [153]"          waitcosfor        sys verify   for      verifyspc(        forwait  ";
  807. 53275 [153]"      waitcosfor          verify       for      verifyspc(spc(      forwait  ";
  808. 53276 [153]"    waitcosfor       print  for  verify       for         verifyspc(     forwait  ";
  809. 53277 [153]"   waitcosfor  (NULL)(NULL)right$for   print for   verify       for         verifyspc(     forwait  ";
  810. 53278 [153]"   waitrndfor  mid$sys(NULL)right$ for  verifyspc(spc(spc(spc(spc(spc(  for verifyspc(spc(spc(spc(spc(spc(spc(for  verifyspc(spc(      forwait  ";
  811. 53279 [153]"    forwait  mid$(NULL)(NULL) for   verifyspc(spc(spc(spc(for  verifyspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(        forwait  ";
  812. 53280 [153]"   waitrndfor      for    verifyspc(for      verifyspc(spc(spc(spc(spc(spc(           forwait  ";
  813. 53281 [153]"    forwait      verifyspc(for        verifyspc(spc(                 forwait  ";
  814. 53282 [153]"    waitrndfor      verifyspc(spc(for     verifyspc(spc(spc(                 forwait  ";
  815. 53283 [153]"     forwait            verifyspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(          forwait  ";
  816. 53284 [153]"     waitrndfor                    verifyspc(spc(spc(spc(spc(spc(spc(     forwait  ";
  817. 53285 [153]"      waitrndfor     sys for          sys(NULL)for         verifyspc(spc(   forwait  ";
  818. 53286 [153]"       waitrndfor        verifyspc(spc(spc(spc(for            verifyspc(spc(spc(spc(spc( forwait  ";
  819. 53287 [153]"         waitrndfor        verifyspc(spc(spc(for       verifyspc(spc(spc(spc(spc(spc(    forwait  ";
  820. 53288 [153]"           waitrndfor          verifyspc(spc(spc(spc(spc(spc(spc(spc(        forwait  ";
  821. 53289 [153]"            logforwait        verifyspc(spc(               forwait  ";
  822. 53290 [153]"             logforwait     verify                   forwait  ";
  823. 53291 [153]"              waitrndfor verify                      forwait  ";
  824. 53292 [153]"               waitrndverify  wait  for verify                 forwait  ";
  825. 53293 [153]"                 for verify for  verify                 forwait  ";
  826. 53294 [153]"                 for    verify                 forwait 
  827. 53295 goto53025
  828. 53300 poke53280,0:poke53281,0:print"[147][129]
  829. 53306 [153]"     poke(NULL)forwait                                  ";
  830. 53307 [153]"     poke frewaitposandtofor                              ";
  831. 53308 [153]"   poke     and(NULL)(NULL)(NULL)andandand+cont    tab(usrwaitnewposandfor               ";
  832. 53309 [153]"    pokepostanvalusr   (NULL)tanvalusr    toandposnewwaitfreusrtab(tab(for            close";
  833. 53310 [153]"tototofor poketab(usrusrfrefretab(print#(NULL) for     print#   sintototototofor              ";
  834. 53311 [153]" .        .            .      tab(tab(tab(tab(tab(tab( .  ";
  835. 53312 [153]"    .           .             .         ";
  836. 53316 [137]53025
  837. 53317 [151]53280,5:[151]53281,5:[153]"load                                        ";
  838. 53318 [153]"                                        ";
  839. 53319 [153]"                                        ";
  840. 53320 [153]"                                        ";
  841. 53321 [153]"*rnd     *syswait(NULL) new newrnd    *wait(NULL)lognew newrnd    waitcosnewnewrnd   *wait newrnd";
  842. 53322 [153]"wait +coslog *wait  +  peek  rndnewwaitcos  peek  sgn sys(NULL)rnd  *wait sys(NULL) open(NULL)newnewwaitsgn    ";
  843. 53323 [153]" +  for clr(NULL)  left$  left$  (NULL)stepwait peek peek +     *wait  chr$ peek + for(NULL)  for(NULL)";
  844. 53324 [153]"  sgn  sgn  chr$   sgn step(NULL) sgn fn peek +  peek   peek chr$ peek + + ";
  845. 53325 [153]"  peek  peek  peek   peek sgn +  peek sgn left$  +   chr$ peek sgn peek peek ";
  846. 53326 [153]"  +  +  +   peek+  +  ++  peek   sgn  sgn + sgn chr$ + ";
  847. 53327 [153]"systab(usrusrusrfrefrefreusrusrusrtab(tab(usrusrusrfrefrefreusrusrusrtab(tab(tab(tab(usrusrfrefrefreusrusrfrefreusrusrusrfrefretab(";
  848. 53328 [153]"  .        .         .             .    ";
  849. 53329 [153]"      .          .          .          .";
  850. 53330 [153]"                     .              .   ";
  851. 53331 [153]"          .                   .         ";
  852. 53332 [153]"totoandandandposposnewnewposposandandposposnewnewposposposposandandandtototo    tototoandandandpospospos";
  853. 53333 [137] 53025
  854. 53334 [151]53281,0:[151]53280,0:[153]"load                rnd                   *cont"
  855. 53335 [153]"                  rnd       verifywaitspc(spc( rnd   waitcoscont      ";
  856. 53336 [153]"                   log   rndverifywaitspc(spc(forspc(verifyspc(*contwait frefrecont        ";
  857. 53337 [153]"                     rndcontwait  forspc(spc(spc(verifyspc(cont            ";
  858. 53338 [153]"                        forspc(spc(spc(verifyspc(cont            ";
  859. 53339 [153]"                        forspc(spc(spc(verifyspc(cont            ";
  860. 53340 [153]"                        forspc(spc(spc(verifyspc(cont            ";
  861. 53341 [153]"                        forspc(spc(spc(verifyspc(cont            ";
  862. 53342 [153]"                        forspc(spc(spc(verifyspc(cont            ";
  863. 53343 [153]"                      for  spc(spc(spc(verifyspc(cont            ";
  864. 53344 [153]"sysnewnewfrefrefrefrefrefrefrefrefreusrusrusrusrusrusrtab(tab(tab(tab(tab(  .   . tab(tab(tab(usrusrusrusrfrefrefre";
  865. 53345 [153]" .      .        .         .       .    ";
  866. 53346 [153]"    .              .            .       ";
  867. 53347 [153]"        .                 .          .  ";
  868. 53348 [153]".                .              .       ";
  869. 53349 [153]"   .                     .              ";
  870. 53350 [137]53025
  871. 53351 [151]53280,0:[151]53281,0:[153]"load                 to   to               verify"
  872. 53352 [153]"cont              waitstepverify        print#stepcont             verifywait   ";
  873. 53353 [153]"cont             waitstepverify  systoandtoverify   print#step cont             verifywait   ";
  874. 53354 [153]"cont             list    syswaitfrelist    print#  cont             verifywait   ";
  875. 53355 [153]"cont             list     list    print#  cont    toto       verifywait   ";
  876. 53356 [153]"cont             list      list   print#  verifywait       contstep     verifywait  list ";
  877. 53357 [153]"cont             list     list    print# waitstepverify      contstep      verifywait   ";
  878. 53358 [153]"cont             list         print#waitstepverify      contstep       verifywait   ";
  879. 53359 [153]"cont                                     wait   ";
  880. 53360 [137]53025
  881. 53361 [151]53280,6:[151]53281,6:[153]"loadlist    cont                                list
  882. 53362 print"    [154]                                [155][146]    ";
  883. 53363 print"    [154]                                [155][146]    ";
  884. 53364 print"    [154]                                [155][146]    ";
  885. 53365 print"    [154]    [164][164][164][164][164][164][164][164][164][175][175][175][175][175][175][175][164][164][164][164][164][164][164][164][164]   [155][146]    ";
  886. 53366 print"    [149]       [181]      [155]     [149][181][155]  [149]   [181]  [181]  [181][155]    ";
  887. 53367 print"        [149][181][155]  [149][181][181][155]          [181][155]     [149][181]  [181]  [149][181][155]    ";
  888. 53368 print"        [149][181][155]  [181][149][181][155]           [146][187][155]    [181][172]   [146][187][181][155]    ";
  889. 53369 print"      [149][181][155] [181][155]  [181][181][155]            [155][146]          [166][155][146]    ";
  890. 53370 print"    [172][155] [149][181][155] [181][172]   [146][187][155]       [172]  [166][155][146]   [172]      [166][155][146]    ";
  891. 53371 print"     [155][146] [181][172]     [166][155][146]          [166][155][146]          [160][155][146]    ";
  892. 53372 print"     [146][172]       [166][155][146]          [166][155][146]    [166][166]     [155][146]    ";
  893. 53373 print"             [166][155][146]      [172]   [166][155][146]   [166][166][166][166][166]   [155][146]    ";
  894. 53374 print"            [166][166][149] [129]  .      [166][149]   [166][166][166][166][166]   [155][146]    ";
  895. 53375 print"            [166][166][149] [129]          [166][149]   . [166][166]   [155][146]    ";
  896. 53376 print"            [166][166][149]  .  [129] .    [166][149] .     [166]  [155][146]    ";
  897. 53377 print"    [129]      [166][166][149]       [129]          .     [160][155][146]    ";
  898. 53378 print"    [129]     [166][149]  .  . [129]    .   .      .   [155][146]    ";
  899. 53379 print"    [129]     [149]       [129]                    [155][146]   [129] ";
  900. 53380 print"[155]                                        ";
  901. 53381 goto53025
  902.